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INLEIDING 



MSX computers hebben een 32K byte groot ROM geheu- 
gen. Meestal hebben deze computers daarnaast een RAM 
geheugen van 80K bytes. 

Het ROM geheugen bevat programmatuur geschreven 
in machinecode. Deze programmatuur zorgt ervoor 
dat de door u ingevoerde instructies onder BASIC 
begrepen worden door de computer. 
Machinetaalprogrammeurs maken vaak gebruik van de 
’routines’ in deze ROM, wat het gemak bij het schrij- 
ven van een machinetaalprogramma sterk vergroot. 

Het RAM geheugen bevat in principe geen programma- 
tuur en is dan ook geschikt voor het invoeren van de 
door u te ontwerpen programmatuur. 

Het ROM geheugen is alleen uit te lezen. In het RAM 
geheugen kunt u zowel informatie wegschrijven, als in- 
formatie uitlezen. 

Doordat het MSX systeem is opgebouwd rondom de Z80A 
microprocessor kan er niet meer dan 64K aan geheugen 
tegelijkertijd gebruikt worden (dit geldt voor elke ’8 bitter’). 
Een simpel rekensommetje (80+32=112) levert ons een getal 
op dat veel groter is dan deze 64K. Hoe zit dat nu? 

Als u in BASIC programmeert is het ROM geheugen perma- 
nent in werking om ervoor te zorgen dat de computer u 
ook daadwerkelijk begrijpt - dat is dan al 32K - de overige 
32K staat volledig tot uw beschikking in de vorm van RAM. 
Nu zult u denken wat gebeurt er nu met het overige 48K 
RAM geheugen dat nog in m’n MSX machine is gestopt? 

16K wordt gebruikt voor de opbouw van het beeldscherm. 
Deze 16K wordt dan ook volledig bestuurd door de Video 
Chip. Hierdoor wordt bij gebruik van 16 kleuren in high 
resolution (screen 2) geen geheugen van de 32K RAM 
afgenomen (zoals bij andere computersystemen). Dit Video 
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RAM kan heel goed door u worden gebruikt, maar meer 
hierover later. 

De overige 32K RAM kan door bovengenoemde beperking 
niet direct onder BASIC door u worden gebruikt. In ma- 
chinetaal heeft u vrijwel het gehele RAM geheugen tot uw 
beschikking. 

Overigens bestaan er voor de BASIC programmeur Utilities 
waardoor het zogenaamde bankswitching mogelijk wordt. 
Bankswitching maakt het mogelijk om toch van de 32K 
extra RAM gebruik te maken. 

Voor informatie hierover kunt u terecht bij uw MSX soft- 
ware dealer. 

De BASIC van uw MSX computer is een van de meest 
krachtige BASIC versies die momenteel beschikbaar zijn 
op homecomputers. Vroeger was het voor een homecom- 
putergebruiker vrijwel een verplichting om de computer 
bijna net zo goed te leren kennen als de ontwerper van het 
apparaat. Dit kwam doordat alle extra faciliteiten als gra- 
fiek en geluid niet werden ondersteund door de BASIC 
in deze machines. Peek en Poke waren de toverwoorden in 
die tijd. 

Waarom dan een boek over Peek en Poke voor MSX compu- 
ters? 

De BASIC heeft weliswaar zeer veel mogelijkheden, maar 
voor zeer verfijnde besturing van uw computer is er vaak 
toch iets extra’s nodig. 

Hiervoor moet u dan toch de beruchte Peek- en Poke- 
instructies gebruiken. 

MSX computers hebben de beschikking over een interna- 
tionale karakter set. Zowel hoofdletters als kleine letters 
zijn beschikbaar. 

Om te zien welke tekens er in uw MSX liggen opgeslagen 
kunt u programma nr.1 gebruiken: 

10 SCREENO : W I DTH3P 
20 F0RX=0T0255 
30 PRINTCHR$( X ) ? 
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40 NEXT 



De decimale waarden 32 t/m 126 komen overeen met de 
door ASCII gestandaardiseerde codes. Deze codes zyn op 
elke computer die gebruik maakt van ASCII codes gelijk. 

Een andere manier om de MSX karakters op het scherm 
te krijgen demonstreert programma nr.2: 

10 SCREENO 
20 F0RX=0T0255 
30 VPÖKE X»X 
40 NEXT 



U ziet dat nu ook ’smiles’, 'muzieknoten’ etc. op het scherm 
komen, waarom? Dat zullen we later laten zien . . . 

Het tekstscherm (screen 0) is verdeeld in maximaal 40 
kolommen (vertikaal) en 24 rijen (horizontaal). De onder- 
ste rij wordt gebruikt voor het afbeelden van de functie- 
toetsinhoud. 

Een van de beperkingen van de MSX karakterset, nl. geen 
inverse tekens, kunt u oplossen m.b.v. programma nr.3: 

10 SCREENO 

20 F OR 1 7.=2304 TO 3055 
30 A7.=VPEEK(I7.) 

40 A7.=A7.X0R255 
50 VPÖKE I7.+768»A7. 

60 NEXT 

TiknuiniFOR X=1T0 255 : PR I NTCHR$ ( X ) > ! NEXT 

U ziet dat er een inverse-karakterset achter de normale is 
’gevpoked’. U kunt deze karakters op het scherm krijgen 
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d.m.v. het printen van de CHR$-codes of door gebruik te 
maken van de CODE toets in combinatie met de letters op 
het toetsenbord. 
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CURSOR MANIPULATIE 



U kunt de cursor uit zetten d.m.v. locate„0 en weer aan 
d.m.v. locate,, 1 . 

Dit geeft te denken. Een knipperende cursor bij een invoer- 
routine bijvoorbeeld, is mogelijk als u gebruik maakt van 
bovengenoemde instructies. Voor deze routinegebruikt 
u programma nr.4 : 

10 SCREENÖ s W I DTH38 
20 PRINT" druk een toets" 

30 LOCATE 23*0,0 

40 FORT* 1 T01 00 ïNEXT: LOCATE» »0:A*=INKEY$ 
50 IFA$=" "THEN100 
60 END 

100 LGCATE23 » 0 » 1 :F0RT=1T050:NEXT 
110 GOTO 30 
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HET VERANDEREN VAN DE KARAKTERSET 



De vorm van de karakters wordt na het inschakelen van de 
computer vanuit het ROM (start 1BBFH) overgebracht 
naar het Video RAM. De karakters zijn opgebouwd uit 
een 8 bij 8 matrix. 

De locaties in het Video RAM zijn te zien met het corres- 
ponderende codenummer. Met programma nr.5 kunnen 
we de locaties onderzoeken, de nullen laten de lege plaat- 
sen zien en de enen laten de vorm van de karakters zien. 

Programma nr.5 : 

10 SCREENO s W I DTH38 
15 Y=2047 : F0RX=2048T04096 
20 S=VAL(BIN$(VPEEK( X ) ) ) 

30 B$="#### ########" 

40 PRINT USINGB*!X>S 
50 IF X=Y+S THEN PRINTELSE G0T070 
60 Y=X 
70 NEXT 



P.S. Voor SCREEN mode 1 : 

10 SCREEN1 8WIDTH30 
15 Y=-l:F0RX=0TG2047 



Nu we weten waar de locaties van de karakters te vinden 
zijn, kunnen we met de VPOKE instructie nieuwe byte 
codes invoeren en zo de vorm van een bepaald karakter 
veranderen. 
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De nu volgende programma’s nr.6a en 6b demonstreren het 
gebruik van de locaties om de vorm van de letter ’A’ te 
veranderen. 

Programma nr.6a: 

10 SCREENO ! W I DTH38 
20 VPOKE 2568 * &B000 1 1 000 
30 VPOKE 2569 » &B001 11100 
40 VPOKE 2570»&B01 111110 
50 VPOKE 2571 >&B00111100 
60 VPOKE 2572>&B01 111110 
70 VPOKE 2573 »&B 11111111 
80 VPOKE 2574 » &B000 1 1 000 
90 VPOKE 2575 » &B000 1 1 000 
100 PRINT'A" 



Programma nr.6b: 

10 SCREEN 1 :WIDTH30 
20 VPOKE 520 » &B000 1 1 000 
30 VPOKE 521 »&B001 11100 
40 VPOKE 522 1 &B0 1111110 
50 VPOKE 523 » &B00 111 100 
60 VPOKE 524»&B01111110 
70 VPOKE 525 »8<B 11111111 
80 VPOKE 526 » &B000 1 1 000 
90 VPOKE 527 » &B000 1 1 000 
100 PRINT"A" 



U ziet nu dus een boompje in plaats van de letter ’A’! ! 

We gebruikten binaire getallen, omdat dit een beter over- 
zicht geeft van de vorm van het karakter. 

Als u de oude vorm terug wilt krijgen, kunt u dit doen 
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d.m.v. het terugpoken van de data voor de letter ’A\ maar 
een eenvoudige screen n (n=0, 1, 2, 3) opdracht doet het- 
zelfde. 

Bij scherm mode 0 vallen de rechter 2 bits van het karakter 
weg, in screen model is dit niet het geval. 
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HET GEBRUIK VAN VPOKE BIJ HET SCHERM 



Het commando VPOKE kunt u gebruiken om een be- 
paalde locatie op het scherm te ’vullen’ met de vorm van een 
bepaalde karaktercode. U kunt zelfs de anders niet beschik- 
bare speciale karakters, zoals de ’smile’ op deze manier 
op het scherm plaatsen. 

Programma nr.7 laat de te VPOKEN karakters zien met de 
bijbehorende codes. 

10 SCREENO ! KEY QFF:LOCATE> »0 
20 F0RX=0T0255 
30 L0CATE1 1 » 12 
40 PRINTX ? ï VP0KE500» X 
50 FQRY= 1 T0300 * NE X T Y 
60 NEXTX 

70 CLS ! KEYON ‘ LOCATE t » 1 
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DE FUNCTIETOETSEN 



Aan de onderkant van de tekstschermen staat de inhoud 
van de 10 functietoetsen van uw MSX computer. 

KEY OFF schakelt deze display uit. 

KEY ON schakelt deze display weer aan. 

DEFUSR=&HOOCC:X=USR(0) zet de display uit. 
DEFUSR=&HOOCF:X=USR(0) zet de display aan. 

Wilt u de inhoud van deze functietoetsen veranderen, dan 
doet u dit d.m.v. de instructie: KEY N»" INHOUD" 
waarbij n de waarde 1 tot 10 kan aannemen, overeen- 
komstig het nr. van de functietoets die de functie moet 
bevatten. 

Voorbeeld: 

KEY 1 » "WIDTH 40"+CHR$( 13) 

plaatst de opdracht WIDTH 40 in functietoets nr. 1 en drukt 
voor u meteen op de RETURN/ENTER toets (CHR$(13) 
komt overeen met ENTER/ RETURN). 

CHR$(13) is een van de vele control codes van uw MSX 
computer. Al deze codes kunt u gebruiken bij het defi- 
niëren van de functietoetsen. Een lijst van deze codes vindt 
u hieronder: 
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MSX CONTROL CODES 



CHR$ (2) ctrl-B - Beweeg de cursor naar het begin van 

het vorige woord. 

CHR$ (3) ctrl-C - Break en stop het programma. 

CHR$ (5) ctrl-E - Wis alles achter de cursor. 

CHR$ (6) ctrl-F - Beweeg de cursor naar het begin van 

het volgende woord. 

CHR$ (7) ctrl-G - Geeft een biep. 

CHR$ (8) ctrl-H - Zelfde als Backspace. 

CHR$ (9) ctrl-I - 8 spaties naar rechts. 

CHR$(H) ctrl-K - Cursor naar de positie links bovenin 

het tekstscherm. 

CHR$(12) ctrl-L - Wis het tekstscherm en zet de cur- 
sor in de positie links bovenin. 
CHR$(13) ctrl-M - Vergelijk ENTER/RETURN. 

CHR$ (14) ctrl-N - Beweeg de cursor naar het eind van 

de regel. 

CHR$(18) ctrl-R - Activeert de insert mode. 

CHR$(21) ctrl-U - Wist de regel waarin de cursor zich 

bevindt. 

CHR$ (28) ctrl-\ - Cursor naar rechts. 

CHR$ (29) Ctrl-] - Cursor naar links. 

CHR$ (30) ctrl-(SHIFT) (F6) - Cursor omhoog. 

CHR$ (31) Ctrl-. - Cursor naar beneden. 

Om de functietoetsen in hun oorspronkelijke functie terug 
te krijgen gebruikt u: 

DEFUSR-&H003E : X=USR ( 0 ) (ENTER) 

Met VPOKE kunt u ook over de functietoets display heen 
schrijven. Programma nr.8 demonstreert deze mogelijk- 
heid. 
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Programma nr.8: 



10 KEYON : SCREENO 
20 F0RX=920T09608TEP2 
30 VPOKEX » O 
40 NEXTX 



50 END 
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(VIDEO-)GEHEUGEN INDELING 



Het tekstscherm, screen O, gebruikt het eerste gedeelte van 
het Video RAM om informatie op het scherm te plaatsen. 
Elke achtereenvolgende locatie van 0 t/m 959 representeert 
een karakterpositie op het scherm. 

Er zijn echter in het gewone RAM geheugen ook enkele 
adressen die een nog grotere controle over het tekstscherm 
geven. 

Eenvande beste instructies is misschien wel POKE&HF3BO,X 
(X=0 t/m 255). Hierdoor is het mogelijk om het aantal ka- 
rakters dat op het tekstscherm moet verschijnen in te stel- 
len, zonder centreren, zoals bij het WIDTH commando. 

Een leuk grapje met dit commando: 

- SCREEN 0 

- POKE &HF3B0.255 

- Zet de cursor voor een stukje tekst. 

- Druk op insert. 

- Druk op de spatiebalk. 

De computer hangt zich nu echter op, gebruik nu uw reset- 
knop of indien uw computer er geen heeft, de aan/uit- 
schakelaar. 

Andere nuttige RAM adressen zijn: 



ADRES FUNCTIE 

F3AE Breedte van de regel in screen mode 0 

F3AF Breedte van de regel in screen mode 1 
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F3B0 


Regellengte 




F3B2 


Aantal regels op het scherm 




F3B3 


SCREEN MODE 0 

Start van de tabel van de screen locaties (name 
table) (0000H) 


F3B7 


Start van de karakter tabel (Char. 
table) (0800H) 


generator 


F3BD 


SCREEN MODE 1 

Start van de tabel van de scherm locaties 

- 1800H 


F3BF 


Start van de kleuren tabel 


- 2000H 


F3C1 


Start van de karakter tabel 


- 0000H 


F3C3 


Start van de attribute tabel 


- 1B00H 


F3C5 


Start van de Sprite vorm tabel 


- 3800H 


F3C7 


SCREEN MODE 2 

Start van de tabel voor de scherm locaties 

1800H 


F3C9 


Start van de kleuren tabel 


- 2000H 


F3CB 


Start van de karakter tabel 


- 0000H 


F3CD 


Start van de Attribute tabel 


- 1B00H 


F3CF 


Start van de Sprite vorm tabel 


-3800H 


F3D1 


SCREEN MODE 3 

Start van de tabel voor de schermlocaties 



-0800H 
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F3D5 


Start van de kleuren tabel 


- 0000H 


F3D7 


Start van de attribute tabel 


-1B00H 


F3D9 


Start van de Sprite vorm tabel 


- 3800H 




*** 




F3DB 


Toets klik aan/uit (0=uit, groter of gelijk l=aan) 


F3DC 


Y-coördinaat van de cursor 




F3DD 


X-coördinaat van de cursor 




F3DE 


Functietoets display aan/uit (verg. F3DBH) 


F3DF t/m 
F3E6 


Bevatten de waarden van de VDP registers 0 t/m 7 


F3E7 


Status register van de VDP 




F3E9 


Voorgrond kleur 




F3EA 


Achtergrond kleur 




F3EB 


Border kleur 




F55E 


Input buffer 




F672 


Hoogste geheugenlocatie 
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DE VIDEO CHIP IN UW MSX COMPUTER 



De MSX-1 -reeks van computers maakt gebruik van een apar- 
te chip (TMS 9918/9929 Video Display Processor, ’VDP’) 
voor de opbouw van het scherm. Enkele bijzonderheden van 
deze video chip zijn de 32 sprites, pixelscroll en het apar- 
te 16K video geheugen. De VDP gebruikt een 10738 Mhz 
kristal. De klokfrequentie van de Z80A wordt verkregen 
door 10738 te delen door 3. 

Zoals u reeds weet, kunnen we het extra Video RAM van 
de VDP adresseren d.m.v. VPEEK en VPOKE. 

De display modes zijn: 

0 - tekstmode (2 kleuren max.) 

1 - tekstmode (sprites mogelijk) 

2 - high resolution mode (256*192) 

3 - Multi Color mode (64*48) 

In tekstmode 0 kunt u gebruik maken van maximaal 40 ka- 
rakters op een regel. 

In alle modes behalve mode 0 heeft u de beschikking over 
maximaal 32 karakters op een regel 

Het Video RAM van 16384 bytes bevat vrijwel alle infor- 
matie die de computer nodig heeft om met graphics en tekst 
te kunnen manipuleren. Het bevat tabellen met informatie 
over verschillende screenmodes, tekstkarakters, spritevorm, 
en attribute-tabellen. 

Hieronder vindt u de adressen in Video RAM met hun 
functie : 
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HET TEKSTSCHERM (SCREENO) 

Decimaal Hexadecimaal Beschrijving 

00000959 0000H-03BFH Karakter posities op ’t scherm 

2048-4096 0800H-1000H Karakter vorm tabel 

HET TEKSTSCHERM (SCREEN 1) 

Decimaal Hexadecimaal Beschrijving 
00002047 0000H-07FFH Karakter vorm tabel 

6144-69 1 1 1 800H- 1 AFFH Karakter posities op ’t scherm 

6912-7039 1B00H-1B7FH Sprite attribute tabel 
8192-8223 2000H-201FH Kleuren tabel 
14336-16383 3800H-3FFH Sprite vorm tabel 

HIGH RESOLUTION SCHERM (SCREEN2) 

Decimaal Hexadecimaal Beschrijving 
0000-6144 0000H-1800H Karakter vorm tabel 
6144-691 1 1800H-1AFFH Karakter posities op ’t scherm 

6912-7039 1B00H-1B7FH Sprite attribute tabel 
8192-14335 2000H-37FFH Kleuren tabel 
14336-15360 3800H-3C00H Sprite vorm tabel 
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MULTI COLOUR SCHERM (SCREEN3) 

Decimaal Hexadecimaal Beschrijving 
0000-1535 0000H-05FFH Karakter vorm tabel 
2048-2816 0800H-0B00H Karakter posities op ’t scherm 
6912-7039 1B00H-1B7FH Sprite attribute tabel 
14336-1 5360 38OOH-3C00H Sprite vorm tabel 

Alle bovengenoemde adressen kunt u adresseren d.m.v. 
VPEEK en VPOKE. 

Van deze locaties zullen we nu enkele wat nader toelichten, 
zodat u een beter inzicht krijgt, wat er nu allemaal mee ge- 
daan kan worden. 
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UITLEG VAN DE SCREEN LOCATIES 



SCREEN MODE 0 

Bij het initialiseren van screen mode 0 worden de 256 ka- 
rakters vanuit het ROM naar het Video RAM overgebracht. 
Ook wordt de regelbreedte ingesteld op 37 (F3AEH) en 
een CLS uitgevoerd en de kleuren ingesteld als color 15,4,4. 

De karakter positie tabel voor screen mode 0 is 960 bytes 
lang. Het scherm wordt ingedeeld in hokjes. Het meest 
linkse hokje bovenaan het scherm heeft de waarde 0, eentje 
naar rechts heeft de waarde 1, etc. Elke regel heeft 40 
karakters (in totaal 24 regels), dus het meest rechtse hokje 
van regel 1 heeft de waarde 39. Het hokje rechts onderin 
het scherm heeft dus logischerwijs de waarde 960 (24*40). 
Met de VPOKE instructie kunt u nu elke screen locatie 
vullen met het door u gewenste karakter. 

Probleem: We willen in het midden van de eerste regel 

een smile plaatsen. 

Opdracht: VPOKE 19 tl 

Resultaat: Plaatst de befaamde smile op locatie 19 van 

scherm mode 0. 

Uitleg: De waarde 19 bevindt zich in de eerste regel 

van het scherm. Hierin plaatsen we de waarde 
van het daar te projekteren karakter. In dit ge- 
val wilden we een smile en aangezien deze als 
karakterwaarde een 1 heeft gekregen, komt 
de smile op het scherm. 

* * * 



25 




De karakter vorm tabel is de tabel waarin de vorm van de 
karakters ligt opgeslagen. Een goed voorbeeld van de moge- 
lijkheden van deze tabel wordt gegeven in het hoofdstuk 
„HET VERANDEREN VAN DE KARAKTERSET”. 

* ** 



SCREEN MODE 1 

Deze tekstmode heeft in tegenstelling tot screen mode 0 
slechts 32 karakters op een regel. Echter, het is ook nu mo- 
gelijk om sprites te gebruiken. Ook is met enkele trucjes de 
kleurenmogelijkheid veel groter. 

Laten we eens kijken wat er zoal mogelijk is. 

De 256 MSX karakters worden vanaf 1BBFH in ROM naar 
het Video RAM overgebracht. Het veranderen van de ka- 
rakterset is gelijk aan de wijze zoals we dat al voor screen 0 
hadden gezien. Ook het op het scherm plaatsen van de MSX 
karakterset via het VPOKE statement is gelijk aan scherm 
mode 0. Het enige verschil zijn de adressen, maar die staan 
in de tabel. Onthoud echter dat het scherm een maximale 
breedte heeft van 32 i.p.v. 40 in screen mode 0. 

U kunt de kleuren van 8 opeenvolgende karakters aan uw 
wensen aanpassen d.m.v. het VPOKE statement. Stel 
dat u de letter ’A’ een bepaalde kleur wilt geven. 

De ASCII-code van de letter ’A’ is gelijk aan 65. De integer- 
waarde van 65 gedeeld door 8 is gelijk aan 8. Dus het adres 
dat we moeten ’VPOKEN’ komt overeen met de waarde 
8192+8=8200. 

VPOKE 8200 1 &H3F 

Levert ons een letter ’A’ in het groen met een witte achter- 
grond. Zie voor een verklaring voor de hexadecimale nota- 
tiewijze appendix A. 

Elke ’A’ op het scherm zal deze kleuren voortaan aanne- 
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men. Echter ook de B, C, D, E, F en de G, omdat deze naar 
dezelfde plaats in de kleurentabel refereren. 

Voor de verklaring van de Sprite attribute tabel en de 
Sprite vorm tabel verwijs ik naar het stuk over het high 
resolution scherm (screen2). 

SCREEN MODE 2 

Dit scherm stelt u in staat om met de vele grafische com- 
mando’s die het MSX BASIC kent schitterende kleuren en 
tekeningen op het scherm te plaatsen. 

Tekst is niet zomaar in 40 kolommen mogelijk, maar een 
slimme routine (zonder peeks en pokes) stelt u in staat 
dit wel te bewerkstelligen. 

Deze routine neemt u als een subroutine op in uw program- 
ma’s waardoor het veel prettiger wordt om tekst op screen 2 
weer te geven. De routine volgt hieronder. 

1 SCREEN2 • OPEN " GRP : " AS 1 
10 X=??ïY=??:C«??!A$="UW TEKST": 

GÖSUB100 
15 GOTO 15 

de routine: 

100 COLOR C:F0R 1=1 TO LEN(A$> :B*=MID$< A$» 
I , 1 ) s X=X+6 iPRESET (X> Y) SPRINT# 1 »B$: NEXT 
200 RETURN 

In regel 10 geeft u ’x’ en ’y’ de waarde van de door u ge- 
kozen schermcoördinaten, waar de tekst moet komen. 

’c’ geeft u een waarde tussen de 0 en 15 voor de kleur 
van de te printen tekst. In ’a$’ stopt u de tekst en klaar 
is Kees! 

De karakter vorm tabel is in deze mode 3 maal zo lang als 
in screen mode 1, n.1. 6144 bytes. Het scherm is echter ver- 
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deeld in 3 onafhankelijke delen. 

Het eerste deel van het scherm komt overeen met de eerste 
256 bytes van de karakter positie tabel. Elke waarde van een 
karakter in dit gedeelte van de karakter positie tabel wordt 
gedefinieerd door de eerste 2048 bytes van de karakter 
vorm tabel. 

Het middelste deel van het scherm komt overeen met de 
256ste t/m de 5 1 le byte van de karakter positie tabel. 

Bytes 5 12 t/m 767 komen overeen met het 3e deel van het 
scherm. 

Dit alles komt er op neer, dat als je een bepaalde positie 
op het scherm een waarde geeft tussen de 0 en de 255, 
dan zal op die plaats het karakter verschijnen dat op die 
karakterpositie van het betreffende schermdeel staat. 

Voorbeeld: VPÜKE 6144 » 1 : VPÜKE 6146» 1 

Wanneer u nu een bepaald karakter op positie 8,0 van het 
scherm plaatst, dan zal dit karakter ook op de plaats 0,0 
en 16,0 verschijnen, omdat deze ook de waarde 1 hebben 
(geVPOKED). 

Op deze manier kunt u in machine taaisnelheid een voor- 
stelling op het scherm toveren. Een voorbeeld hiervan vindt 
u terug in programma nr.9: 

10 'een menu kader voor MSX (VPnk'E VER C ;I 
ON) 

20 : 

30 SCREEN2 

40 FOR X=6144 TO 6144+31 
50 VPÜKE X > 1 
60 NEXTX 

70 F0RY=6144 T06 1 44+ ( 32*6 ) STEP32 
80 VF’OKEY 1 1 
90 NEXT 
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1 00 FQRY-6 1 44+3 1 T06 1 76+ ( 3 1 *6 ) STEP32 
HÓ VP0KEY>1 
120 NEXTY 

130 F0RX=6144+(32*6)T0< (6144+<32*6> )+31) 



140 VPOKEX 1 1 

150 NEXTX 

160 0PEN"9rps"ASl 

170 PRESET(8»0>:PRINT#1»"*" 

180 GOTO 180 
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SPRITES IN MODE 1 , 2 EN 3 



Sprites zijn een zeer belangrijke eigenschap van uw MSX 
computer. 

Met deze zelf te definiëren figuurtjes kunt u heel mooie 
effecten bereiken, vooral in spelletjes. 

Om nu wat meer controle over de sprites te krijgen, volgen 
hier voor alle 32 mogelijke sprites de adressen en hun func- 
ties. 



SPRITE ATTRIBUTE TABEL 



SPRITE NR. 

sprite O 
sprite 1 
sprite 2 
sprite 3 
sprite 4 
sprite 3 
sprite 6 
sprite 7 
sprite 8 
sprite 9 
sprite ÏO 
sprite 11 
sprite 31 



Y-POSITIE 

6912(1B00H> 
6916 ( 1B04H) 
6920 ( 1B08H) 
6924UB0CH) 
6928UB10H) 
6932 ( 1B14H) 
6936UB18H) 
6940 ( 1B1CH) 
6944 t 1B20H) 
6948 C 1B24H) 
6932 ( 1B28H) 
6956 ( 1B2CH) 
7036 ( 1B7CH ) 



X-POSITIE 

6913 < IBOIH) 
6917 ( 1B05H) 
69211 1B09H) 
6925 ( 1 BOBH ï 
6929 ( 1B11H) 
6933 < 1B13H) 
6937 < 1B19H) 
6941 (1B1DH) 
6945 ( 1B21H) 
6949 ( 1B25H) 
6953 1 1B29H) 



7037 < 1B7DH) 



SPRITE PLANE 

6914 ( 1B02H) 
6918 1 1B06H) 
6922 ( 1B0AH) 
6926 ( 1B0EH) 
6930 ( 1B12H) 
6934 ( 1B16H) 
6938 1 1B1 AH) 
6942 ( 1B1EH) 
6946 ( 1 B22H ) 
6950 ( 1B26H) 
6954 ( 1B2AH) 



7038 ( 1B7EH) 



KLEUR 

6915 ( 1B03H) 
6919 (1B07H) 
6923 ( 1B0BH) 
6927 ( 1B0FH) 
6631 (1B13H) 
69351 1B17H) 
6939 ( 1B1BH) 
6943 ( 1B1FH) 
6947 ( 1B23H ) 
6951 C1B27H) 
69SS ( 1B2BH) 



7039 1 1B7FH> 



U kunt deze tabel gebruiken als naslag tijdens het program 
meren. 



Het volgende programma demonstreert het gebruik van de 
Sprite attribute tabel. Het maakt gebruik van de geheugen- 
locaties voor sprite O (zie de tabel). 

Programma nr. 1 0 : 

10 SCREEN2 
20 FÜRX=1T08 
30 READA 
40 A*=A$+CHR$(A) 
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50 NEXT 

60 SPRITE*<0>=A* 

70 PUTSPRITEO» (50» 50) » 15»0 

80 F0RX-0TG255 

90 VPQKE6913» X 

100 VP0KE69 1 5 * RND ( 1 ) * 1 2+2 

110 NEXT 

120 G0TO80 

130 DATA 224» 248» 62» 255 *62» 248» 224» O 
SPRITE VORM TABELLEN 



De sprite vorm tabellen zijn afhankelijk van de door u ge- 
kozen sprite grootte. 

SCREEN 2,0- 8* 8 sprites 
SCREEN 2,2 - 16* 8 sprites 
16*16 sprites 



8*8 sprite vorm tabel; 



spr i te 
sprite 



sprite 



NR. 


DECIMAAL 


ADRES 


HEX. DECIMAAL 


O 


14336 - 


14343 


3800H - 3807H 


1 


14344 - 


14351 


3808H - 380-f H 


2 


14352 - 


14359 


3810H - 3817H 


3 


14360 - 


14367 


3818H - 381FH 


4 


14368 - 


14375 


- 


31 


14584 - 


14591 


38F8H - 38FFH 



16*8 sprite vorm tabel 



spr i te 
spr i te 
spr i te 
sprite 
spr i te 
spr i te 



NR. 


DECIMAAL 


ADRES 


HEX. DECIMAAL 


0 


14336 - 


14351 


3800H - 3SOFH 


i 


14368 - 


14383 


3820H - 382FH 


2 


14400 - 


14415 


3840H - 384FH 


3 


14432 - 


14473 


3860H “ 386FH 


4 


14464 - 


14479 


- 


31 


15328 - 


15343 


3BE0H - 3BEFH 
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16*16 sprite vorm tabel 



SPRITE MR. 


DECIMAAL ADRES 


HEX. DECIMAAL 


sprite 0 


14436 - 14367 


3800H - 381FH 


sprite 1 


14368 - 14399 


3820H - 383FH 


sprite 2 


14400 - 14431 


3840H - 385FH 


sprite 3 


14432 - 14463 


3860H - 387FH 


sprite 4 


14464 - 14495 


- 


sprite 31 


15328 - 15359 


3BE0H - 3BFFH 



Het volgende programma demonstreert de mogelijkheden 
van de sprite-animatie in combinatie met het VPOKE 
statement. 

Programma nr. 1 1 : 

1 0 CÜLOR 1 5 » 1 » 1 : SCREEN2 » 2 
20 FORT=1T032ïREADA:A*=A$+CHR$(A) :NEXT 

C;f) C;pp; J y £<£ ( 2 ) =A$ 

40 DATA 0 » 7 T 0 » 0 » 0 » 0 » 67 > 95 » 255 1 64 » 64 » 0 » 0 » 
0 f 0 tOtOf 255 

50 DATA 32 » 1 1 2 » 200 » 1 96 » 226 > 226 » 242 » 1 24 ♦ 0 

1 0 > 0 > 0 » 0 1 o 

60 PUT SPRITE 2 1 ( 0 » 9 ) # 1 5 > 2 
70 F0RX=0T0255 
80 VPOKE 692 1 > X 

90 VPOKE &H384 1 > 0 : VP0KE&H385 1 1 0 : VP0KE&H3 
846 1 3 

1 00 VP0KE&H3847 >31* VPQKE&H3849 * O : VPOKE&H 
384A » O 

110 FORS= 1 T05 ! NE X TS 

1 20 VP0KE&H384 1 > 7 : VP0KE&H385 1 > 255 : VPOKE& 
H3846 > 67 

130 VP0KE&H3847 > 95 : VP0KE&H3849 > 64 : VPOKE& 
H384A » 64 
140 NEXT 
150 G0T070 
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HET VDP STATEMENT 



Zoals u reeds heeft kunnen lezen staat de term VDP voor 
Video Display Processor (In het Nederlands: Beeld ver- 
zorger). Deze VDP heeft om te kunnen werken, naast het 
Video RAM een aantal registers waar ook in binaire vorm 
informatie over uw MSX ligt opgeslagen. 

Voor binaire getallen zie appendix B. 

Er bestaan in de TI99 18/9929 9 registers. Deze registers 
zijn genummerd van 0 t/m 8. Al deze registers zijn geschikt 
om uit te lezen, of in te schrijven (met uitzondering van 
register nr.8). Al de registers zijn 8 bits groot (zie blz. 33). 

Register nr.0 

In dit register worden slechts de minst significante bits 
gebruikt (bits 0 en 1). 

Bit 0: Deze bit staat normaal altijd op 0, tenzij er 

een externe VDP is aangesloten. U kent vast 
wel de mogelijkheid om d.m.v. een laserdisk 
interface een laserdisk speler op uw MSX aan te 
sluiten. Deze laserdisk speler functioneert dan 
als een externe VDP, dus zal deze bit op 1 staan. 
Probeer echter niet zelf iets met bit 0 uit te ha- 
len, want dan hangt uw computer zich op. 

Bit 1 : Deze bit wordt gebruikt in combinatie met 

bits 3 en 4 van VDP register nr. 1 om de screen 
mode in te stellen. 

Screen 0: (reg. 1, bit 4=1) (reg. 1, bit 3=0) (reg. 0, bit 1=0) 

Screen 1 : (reg. 1, bit 4=0) (reg. 1, bit 3=0) (reg. 0, bit 1=0) 

Screen 2: (reg. 1, bit 4=0) (reg. 1, bit 3=0) (reg. 0, bit 1=1) 

Screen 3: (reg. 1, bit 4=0) (reg. 1, bit 3=1) (reg. 0, bit 1=0) 
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Register nr.1 

BitO: Als dit bit op 0 staat dan zijn de sprites niet 

vergroot (unmagnified). Als dit bit op 1 staat 
dan zijn de sprites wel vergroot (magnified). 

Als u dit bit wilt gebruiken, dan moet u er re- 
kening mee houden, dat het niet op zichzelf 
staat, maar in samenwerking met andere para- 
meters functioneert. 

Het is namelijk afhankelijk van de screen mode 
selectie en de instelling van bit nr.1 van dit 
register. 

Bit 1 : Als in het 'screen’ commando wordt gekozen 

voor 8*8 sprites dan staat bit 1 op 0, als er 
wordt gekozen voor een 16*16 sprite, dan 
staat bit nr. 1 op 1 . 

Bit 2: Niet gebruikt. 

Bit 3 : Zie bit 1 van register nr. 0. 

Bit 4: Zie bit 1 van register nr. 0. 

Bit 5 : Dit is het VDP interrupt bit. Als dit bit op 0 

staat voert de VDP geen interrupt meer uit. 
Aangezien dit interrupt signaal o.a. gebruikt 
wordt voor de keyboard scan, zal als u dit bit 
op 0 zet niets meer via het toetsenbord kunnen 
worden ingebracht. Een RESET of het uit- en 
aan schakelen van de computer is dan nog als 
enige oplossing over. 

Bit 6 : Dit bit zorgt voor het aan- en uitschakelen van 

het beeldscherm. 

Als u nu een BASIC programmaatje schrijft, 
dat een cirkel tekent en in laat kleuren, dan 
kunt u voordat deze cirkel wordt getekent 
door bit 6 op 0 te zetten het scherm uit zetten. 



35 




Door na het paint commando het scherm weer 
aan te zetten (bit 6 op 1), komt er in 1 klap 
een cirkel op ’t scherm. 



Voorbeeld: 

1 0 COLOR 1 5 » 1 > 1 ! 8CREEN2 
20 VDP ( 1 ) =S'.B 1 0 1 000 1 0 
30 C I RCLE ( 1 28 » 96 ) » 60 > 15 
40 PAINT ( 128>96) > 15 
50 VDP ( 1 ) *&B 1 1 1 000 1 O 
60 GOTO 60 



Bit 7: Hiermee kunt u kiezen tussen een 4K of 16K 

Video RAM: 

O- 4K 
1 - 16K 

Dit bit moet altijd op 1 staan. 



Register nr.2 

Alleen de 4 minst significante bits worden hier gebruikt. 
Dit ’nibble’ wordt gebruikt om het ’BASE adres’ van de 
karakter positie tabel te kunnen definiëren. 

Het BASE adres is het eerste byte van de karakter positie 
tabel. 

Het Video R AM is 16K groot, dus binair max. 14 bits groot. 
De nibble van register nr.2 definieert nu de meest signi- 
ficante nibble van een 14 bits getal. 

Het karakter positie tabel BASE adres wordt nu gevormd 
op de volgende wijze: 00. ...00 00000000 

Op de plaats van de puntjes komt de inhoud van het minst 
significante nibble van register nr.2. 

3C00H - Max. BASE adres 
0400H - Min. BASE adres 
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Screen m. 0: Karakt. pos. BASE adres = 0000H= !, reg. nr.2=0 
Screen m. 1 : Karakt. pos. BASE adres = lSOOH^reg. nr.2=6 
Screenm. 2: Karakt. pos. BASE adres= 1800H=*reg. nr.2=6 
Screen m. 3: Karakt. pos. BASE adres = 0800H=* > reg. nr.2=2 

Register nr.3 

Dit register bevat de bovenste 8 bits van het kleurentabel- 
base-adres. Deze tabel bevat de gegevens over de kleur van 
het te printen karakter. Niet over de achtergrond kleur of 
de border kleur. Deze tabel bestaat alleen in screen modes 1 
en 2. 

Het adres wordt als volgt opgebouwd: 

00 000000 

Het max. base adres is dus 3FC0H 
Het minimum is 0000H. 

U kunt in stappen van 40H een eigen kleuren tabel in VRAM 
opzetten. (00000000 01000000 =40H) 

Register nr.4 

De minst significante 3 bits bepalen het karakter vorm 
BASE adres. 

Het adres wordt als volgt opgebouwd: 

00...000 00000000 
Het maximum BASE adres is 3800H. 

Het minimum BASE adres is 0000H. 

De stap tussen de verschillende adressen is 0800H. 
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Register nr.5 

De eerste 7 bits worden gebruikt om het Sprite attribute 
BASE adres te vormen. 

Het adres wordt als volgt opgebouwd: 

00 0000000 

De maximum waarde is 3F80H. 

De minimum waarde is OOOOH. 

De stap tussen de verschillende adressen is 0080H. 

Register nr.6 

De laagste 3 bits bepalen het sprite vorm BASE adres van 
de sprite vorm tabel. 

Het adres wordt als volgt opgebouwd : 

00.. .000 00000000 

De maximum waarde is 3800H. 

De minimum waarde is OOOOH. 

De stap tussen de verschillende adressen is 0800H. 

Register nr.7 

Het laagste nibble bepaalt de border kleur. In screen mode 0, 
ook de achtergrond kleur. De hoogste nibble bepaalt de 
voorgrond kleur. 

Voorbeeld: VDP(7)=&HF1 

Geeft witte letters op een zwarte achtergrond. 
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F=15 (wit), 1=1 (zwart) 

(vergelijk color 15,1) 

Register nr.8 

Bit 7 : Dit register wordt ook wel het VDP status 

register genoemd. Het kan alleen gelezen wor- 
den. Het meest significante bit is de inter- 
rupt status vlag. Het staat op 1 na een screen 
scan. Het staat op 0 als het status register is 
gelezen. 

Bit 6: Als er meer dan 5 sprites op een horizontale 

lijn staan wordt dit bit op 1 gezet. Het wordt 
op 0 gezet als het status register wordt gele- 
zen. 

Bit 5 : Dit bit wordt 1 , als 2 sprites botsen, (vergelijk 

’on sprite gosub’ statement). 

Bits0t/m4: Als 5 sprites op 1 horizontale lijn staan wordt 
hierin het plane nummer van de vijfde sprite 
gezet. 
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HET BASE STATEMENT 



Het BASE statement geeft aan welk adres als begin van een 
tabel in Video RAM wordt gehanteerd. Ook kunt u met het 
BASE statement nieuwe BASE adressen aangeven voor de 
ook door u te maken tabellen. 

Hieronder volgen de BASE adressen zoals standaard in uw 
MSX. 

SCREEN 0 

BASE (0) - Base van de tabel in tekst mode 
BASE (1)- Niets 

BASE (2) - Base van de karakter vorm tabel in tekst mode 
BASE (3) - Niets 
BASE (4) - Niets 

SCREEN 1 

BASE (5) - Base van de karakter positie tabel in tekst mode 
BASE (6) - Base van de kleuren tabel in tekst mode 
BASE (7) - Base van de karakter vorm tabel in tekst mode 
BASE (8) - Base van de sprite attribute tabel in tekst mode 
BASE (9) - Base van de sprite vorm tabel in tekst mode 

SCREEN 2 

BASE (10)- Base v.d. karakter positie tabel in high-res. mode 
BASE (11)- Base v.d. kleuren tabel in high-res. mode 
BASE (12) - Base v.d. karakter vorm tabel in high-res. mode 
B ASE ( 1 3 ) - B ase v. d . sprite attribute tabel in high-res. mode 
BASE (14) - Base v.d. sprite vorm tabel in high-res. mode 

SCREEN 3 

BASE ( 1 5) - Base v.d. karakter positie tabel in high-res. mode 
BASE (16) -Niets 

BASE (17) - Base v.d. karakter vorm tabel in multi-col. mode 
BASE (18)- Base v.d. sprite attribute tabel in multi-col. mode 
BASE (19) - Base v.d. sprite vorm tabel in multi-col. mode 

40 




appendix a 



het hexadecimale getallen systeem 



Normalerwijs maken wij gebruik van het decimale getallen 
systeem Het grondtal voor dit systeem is 10 (0, 1, 2, 3, 
4, 5, 6, 7, 8,9). 

Bij het hexadecimale getallensysteem maken we gebruik 
van 16 als grondtal (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, 
E, F). 



In uw computer bevinden zich verschillende manieren om 
makkelijk met hexadecimale getallen te kunnen werken. 



Als u een hexadecimaal getal in uw BASIC programma 
wilt verwerken, dan moet aan dit getal vooraf gaan: ’&H’. 



Voorbeeld: &HFF (255 decimaal) 

Wilt u een hexadecimaal getal omzetten in het voor u mis- 
schien makkelijker te begrijpen decimale systeem, moet u 
in tikken : 



===>> PRINT S'.HFF ==>> 255 

Wilt u een decimaal getal omzetten in een hexadecimaal 
getal, dan moet u dit doen d.m.v. de functie HEX$. 

Voorbeeld: PRINT HEX$<255) ( StHFF ) 

N B In dit boekje vind u alle hexadecimale getallen voor- 
zien van een ’H’ achter het getal. Dit is gedaan, om de machi- 
netaalprogrammeur van dienst te zijn. In een assembler 
wordt namelijk altijd op deze wijze met hexadecimale 
getallen gewerkt. 
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Bij de bespreking van de kleurenmogelijkheden onder screen 
mode 1, gebruikten we de opdracht: VPQKE 82GÖ»&H3F 

Hier kunt u zien dat een hexadecimale notatie zijn nut 
kan hebben. Waarom? 

Omdat wij hier een groene letter op een witte achtergrond 
wilden verkrijgen. De kleur groen is bij de MSX o.a ge- 
definieerd als de waarde 3. De kleur wit is gedefinieerd als 
15 (&HF). Door nu de gewenste kleuren hexadecimaal te 
noteren en dan achter elkaar te schrijven verkrijgen we 
ons gewenste resultaat. 
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appendix b 



binaire getallen 

De computer werkt alleen met nulletjes en eentjes, zoals 
u waarschijnlijk al weet. Het aantal beschikbare cijfers bij de 
binaire getallen is 2 (0, 1). 

Een binair getal is bijvoorbeeld: 1010 (10 decimaal). 

Wat is nu het verband tussen binair en decimaal? 

1010 binair 

• • • 0 =*• o 

1010 binair^ 

1010 binair 

0 => 0*2 tot de macht 
1 =M*2 tot de macht 
0. => 0*2 tot de macht 

j ’ => i*2 tot de macht 

10 decimaal 



0=0 
1 = 2 
2 = 0 
2=8 + 



Decimaal naar binair omzetten 

Hierbij moet u kijken welke macht van 2 als grootste voor- 
komt in het decimale getal, dat moet worden omgezet naar 
een binair getal. Dit getal trekt u van het uitgangsgetal af. 
De uitkomst van die aftreksom bekijkt u dan weer opnieuw 
enzovoort. 

Voorbeeld : Het getal 329 
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Het grootste getal is 256 = 2 tot de macht 8 
329 - 256= 73 

Het grootste getal is 64=2 tot de macht 6 
73 - 64 = 9 

Het grootste getal is 8=2 tot de macht 3 
9-8=1 

In het getal 329 komen dus voor: 

1 * 2 tot de macht 8 

0 * 2 tot de macht 7 

1 * 2 tot de macht 6 
0 * 2 tot de macht 5 

0 * 2 tot de macht 4 

1 * 2 tot de macht 3 
0 * 2 tot de macht 2 

0 * 2 tot de macht 1 

1 * 2 tot de macht 0 

Het binaire getal is nu dus: 101001001 

Ook voor binaire getallen bestaan onder BASIC speciale 
voorzieningen. 

Een binair getal wordt genoteerd als: &B 1 0 1 00 1 00 1 
Omzetten van decimaal naar binair: 

PRINT BIN$(329) ==>> 101001001 

Omzetten van binair naar decimaal: 

PRINT ?<B1 01001 001 ==>> 329 

Binaire getallen worden vooral veel gebruikt bij het pro- 
grammeren op het allerlaagste niveau. Bijvoorbeeld het 
veranderen van de inhoud van de PSG of de VDP registers. 

N.B. Een byte is opgebouwd uit 8 bits (nullen en enen). 

Deze byte is te verdelen in twee ’nibbles’ (een halve byte). 
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Zo’n nibble kan een maximale waarde van 1 5 (FH) aannemen. 
Een binair getal wordt dan ook omgezet in een hexadeci- 
maal getal door elk van de nibbles in hex. vorm te noteren 
en achter elkaar te schrijven. 

Voorbeeld: 1 1 1 1 1010 binair 

bestaat uit twee nibbles, n.1.: 1 1 1 1 en 1010 

Het eerste nibble is gelijk aan 1 5 decimaal (FH). 

Het tweede nibble is gelijk aan 10 decimaal (0AH). 

Het getal &B1 1 1 1 1010 is dus gelijk aan &HFA. 
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PROGRAMMA’S 



DISK LOADER UTILITY 

5 COLOR 1 > 1 4 : SCREENO : W I DTH38 
10 : 

20 ï 

30 ' "Geef een machinetaal programma 
40 ' "de toevoeging .BIN 
50 ' "Hierdoor worden uw machinetaal 
&0 ' "programma's probleemloos opgestart 
vanuit dit programma 
70 ' "BENOEM VERDER; 

80 ' "Basic programma's met .BAS 
90 ' " MSX DOS files met .OOM/ .SYS 
100 ' "Als het programma een .COM of een 
.SYS uitgang tegenkomt zal het MSX DOS 
operating system osestart moeten worden. 
110 ' "Wanneer U dan de 'A>' op het sche 
rm krijgt kunt U de naam van het door U 
te laden programma als nog intikken en o 
p ENTER/RETURN drukken. Het programma wo 
rdt op deze manier 'gerund.' 

120 PR INT "MSX DISK BASIC VERS ION 1.0 

130 PR INT "LOADER PROGRAM 

140 PR INT "COPYRIGHT (c) 1985 H. KLOPPER 

150 PR I NT ; PR I NT " Dr u k een toets 

160 A$=INPUT$( 1 ) 

170 CLS 

180 DIM A$ ( 500 ) 

1 90 COLOR 1 t 1 4 : KEY OFF : SCREENO : W I DTHSft 
200 FILES 

210 LOCATE 1 »20:PRINT"Zet de cursor op h 
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et eerste karakter" 

220 LOCATE 1 >21 :PRINT"van de file die u 
wilt laden." 

230 LOCATE 1 » 22 >0: PR INT "Druk op ESC voor 
het laden... 

240 Y=CSRL I N 5 X =POS ( O ) ' x & y cordxnaat 

250 BEGIN**INPUT*(1> ' wacht op ESC 

260 IF BEGIN*-CHR$(30)THENX«X*Y»Y-HG0SU 

B 510 'cursor up 

270 IF BEO I N$=CHR$ ( 28 ) THEN X=X+1 : Y=Y:GOS 

yo 5io 'cursor risht 

280 IF BEG I N$=CHR$ < 29 ) THEN X=X-i : Y-Y*GOS 

IIB 510 'cursor 1 ef t 

290 ~ I F BEGIN$=CHR*<3i)THEN X=X :Y=Y+1 :GOS 

nn 510 'cursor down 

300 " I F BEG I N$=CHR$ ( 27 ) THEN3 1 O ELSE250 

310 A=CSRL I N 'y - c ordinaat 

320 B=POS ( O ) 'x - c ordinaat 

330 p=A*40 ' schermcode 

340 F0RX=1 TO 12 

350 CODE=VPEEK< (P+B)+X) 'in lezen ascii 

waarden 

360 A$ ( X ) =CHR$ ( CODE ) 'ascii waarden 

omzetten 

370 IF COÜEOO THEN NEXT ELSE 380 

380 PROGRAM$=A$ ( 1 ) +A$ ( 2 ) + A$ ( 3 ) +A$ ( 4 ) +A$ ( 

5 ) +A$ ( 6 ) +A$ < 7 ) + A$ ( 8 ) +A$ < 9 ) + A$ ( 10 )+A$( 11 ) 

+A*< 12) 

390 FOR X=800 TO 919* VPOKEX » &HDB : NEXT 
' onderste 4 regels 
400 TEST$=M I B$ ( PROGRAMS » 1 0 » 3 ) 

410 IF TEST$="COM" THEN LOCATE 5»17:PRIN 
TPROGRAM* : L0CATE5 » 1 8 : PR I NT " == > Gomman d f 
i 1 e ( MS X DOS ) " *• GOSUB 560 : RUN 
430 IF TEST$="SYS" THEN LOCATE 5» 17: PR IN 
TPROGRAM* : LOCATE 5 > 1 8 : PR I NT " == > Systeem 
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f i 1 e (MSX DOS ) " : GOSUB 560 :RUN 

430 IF TEST*="BAT" THEN LOCATE 5»17.*PRIN 

TPROGR AM* : LOCATE 5 » 1 8 : PR I NT " == > Autostar 

t file (MS X DOS)": GOSUB 560: RUN 

440 IF TEST$=" " THEN LOCATE 5>18:PRINT"G 

een extension" :F0RT=1T0200:NEXT 

450 IF TEST*="MSG" THEN L0CATE5» 17: PRINT 

PROGRAM* : LOCATE 5» 18:PRINT"==> Message f 

i 1 e " : GOSUB 560 :RUN 

460 IF TEST*="DAT" THEN L0CATE5 > 1 7 : PR I NT 
PROGRAM*: LOCATE 5» 18: PRINT"==> Data file 
GOSUB 560 : RUN 

470 IF TEST*="ÖVR" THEN L0CATE5, 17: PRINT 
PROGRAM*: LOCATE 5» 18:PRINT"==> Overlay f 
i 1 e " : GOSUB 560 :RUN 

480 IF TEST*="BIN" THEN L0CATE5# 17 : PRINT 
PROGRAM*: LOCATE 5» 18:pRINT"==> Machineta 
al GOSUB 560:G0SUB610 
490 ON ERROR GOTO 580 

500 CLS : COLOR 1 » 14 : L0CATE5 > 5 : PR I NT " De f i 1 
e "+PROGRAM*:PRINT" wordt nu geladen... 

" : LOADPROGRAM* : I F ERR-57THEN BLOADPROGRA 
M*»R ' laden v/d file 
510 IF Y >= 1 9THENY = 1 9 '\ 

520 IF X=-l THEN X=0 ' «Cursor niet 
530 IF Y=-l THEN Y=0 V uit scherm 
540 LOCATEX » Y 
550 RETURN 

560 FOR T= 1 TO 1 000 : NE X T 
570 RETURN 

580 LOCATE 5» 16:PRINT"Fout geconstateerd 

590 FORT=1T0500:NEXT: RÉSUMÉ 600 
600 RUN 

610 CLS : LÖCATE5 > 5 : PR I NT " De file "+PROGRA 
M*:PRINT"wordt nu geladen ..." :BLOADPROGR 

AM* t R 
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ANIMATIE MET KARAKTERS 



10 KEYOFF 

20 COLOR 1 » 14» 145SCREEN1 s WIDTH3 
30 : 

40 ' Y=X -COÖRDINAAT 
50 7 X = Y-COORD I NA AT 
60 ! Y=10 
70 A7.=0 
80 B7.=0 

90 FOR 1=1 TO 8 
100 RE AD A7. 

HO VPOKE ( 0+ ( 250*8 ) ) + 1 » A7. 

120 NEXT 

130 DATA O» 129» 166» 24» O» 0»0» O 
140 : 

150 F0RI=0T07 
160 READB7. 

1 70 VPOKE ( 25 1 *8 ) + I » B7. 

180 NEXT 

190 DATA O » 255 » O » O » O » O > O » O 
200 FOR X=20 T05STEP-1 : Y=Y+1 
210 VPOKE 6 1 44+ ( X*32 ) + Y » 250 
220 FORT= 1 TO 1 00 : NEXT 
230 VPOKE 6144+( X*32)+Y»251 
240 FORT= 1 TO 1 00 s NEX T 
250 VPOKE 6 1 44+ ( X*32 ) + Y » O 
260 NEXT 




LIJNEN VERDWIJNEN 



10 STOP ON: ONSTOP GOSUB 200 
50 X 1 =ABS ( &H8000 ) 

60 X2=PEEK(63170! >+256*PEEK<63171 ! ) 

70 FORY=X1TOX2 

80 I FPEEK ( Y)=l 43ANDPEEK < Y+ 1 ) =90THENC= 1 : N 
EXT 

90 I FC= 1 ANDPEEK ( Y ) =90THENP0KEY » 1 27ELSEC» 
O 

100 NEXT 

110 DELETE 50-110 

120 A$= " MSX " : REMZ Z ZZZZZZZZZZZZZZZZZZZ 
130 CLS: INPUT "GEEF PASSWORD" ;B$ 

140 I FB$< > A$THENPR I NT 11 HELAAS . . . •' : NE W : REM 
ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ 
200 RETURN 



BASIC GEHEUGEN 

(uitleg van bovenstaand programma) 

Het start adres van BASIC ligt altijd op &H8000 bij een 
64K MSX. 

De lengte van een BASIC programma is variabel, dus ook 
het eindadres. Het einde van een BASIC programma ligt bij 
het begin van de variabelen tabel. (X2) 

U vindt het misschien nuttig, om lijnen in uw programma’s 
te verbergen voor andermans nieuwsgierige ogen. 

Bovenstaand programma zorgt voor dit fenomeen. 

Typ het programma over en SAVE het op cassette of disk. 
Alleen lijn nr. 130 blijft in de listing over. Alsu nu het pro- 
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gramma ’RUNT’, moet u het goede Password invoeren, 
anders verdwijnt het programma. 

Het programma verwisselt de letters ’Z ’ met een delete teken. 
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BEELDSCHERM WEGSCHRIJVEN 



1 COLOR 15» 1 » 1 SSCREEN2 

2 FORX= 1 TQ255STEP3 

3 L I NE ( 1 50 » X ) - ( X » 50 ) » 1 5 

4 NEXT 

40 TIME=0 
50 * 

60 BSAVE "pictl " » O» &H3FFF » S ' Be 

eldscherm weeschr iü ven 
70 : 

80 SCREEN O 

90 PRINT "TIJD = "5TIME/505 "Seconden" 

100 PRINT "Het beeld is nu weaeeschreven 
110 : 

120 INPUT"Wi1t ü het scherm weer laden ( 
.j/n)"5SCHERM$ 

130 IF SCRERM$= " j " ORSCHERM$= " j a " OR SCHER 
M$="J"THEN 150 

140 IF SCRERIi$= " n " ORSCHERM$= "nee" OR SCHE 
RM$="N"THEN END 

150 SCREEN 2SBL0AD "pictl"» S ' Beel 

dscherm laden 
160 : 

170 BEEP 
180 GOTO 180 
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HEADERLEZER* *DISK UTILITY** 



De meeste mensen die in het bezit zijn van een diskdrive 
zullen zich afvragen, waarom de meeste software toch altijd 
op die langzame cassettes wordt uitgebracht. 

Het antwoord is simpel. De meeste MSX gebruikers bezitten 
een cassetterecorder. Het aantal mensen dat zich de geluk- 
kige bezitter van een diskdrive mag noemen is dus te klein 
voor de softwarehuizen om hun software op diskette uit 
te brengen. 

Dit zal echter wel veranderen in de toekomst, want de mees- 
te fabrikanten komen binnenkort met MSX machines met 
een ingebouwde diskdrive (vrgl. de SVI X’ Press). 

Deze computers zijn dus in basisuitvoering al van een disk- 
drive voorzien. 

Echter tot die tijd is het ploeteren met cassette bandjes 
terwijl u naast uw computer zo’n mooie snelle diskdrive hebt 
staan. 

Wat zou het toch makkelijk zijn als u al uw cassette soft- 
ware op disk kwijt kon! 

Met BASIC programma’s (tot een KB of 20) geeft dit geen 
problemen. Echter met machinetaal programma’s is dit 
moeilijker. Hiervoor volgt dadelijk een programma dat is 
geschreven in machinetaal/B ASIC. 

Het programma stelt u in staat om vrijwel elk machinetaal 
programma van cassette naar disk te schrijven. 

Elk machinetaal programma heeft een BEGIN-, EIND- 
en START- adres. 

Normaal laadt u een machinetaal programma met: 

BLOAD"CASs" >R 

Om nu een machinetaal programma van cassette naar 
disk te schrijven dient u eerst het programma op de vol- 
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gende bladzijde te ’RUNNEN’. 

U spoelt uw cassette met het te copieren programma 
terug en drukt op PLAY. 

Nu leest het programma de zogenaamde HEADER van 
de tape. 

Er verschijnen gegevens over het programma; 
n.1. : - Soort programmeertaal (BASIC (Progr./ASCII 

of machinetaal)) 

- Naam van het programma 

- Begin-, eind- en startadres 

U kunt nu het programma wegschrijven d.m.v.: 

BSAVE " PROGRAMMANAAM " » &HBEG I N ADRES > 

WE I ND ADRES > &HSTARTADRES 



P.S. Programma’s waarvan het begin-, eind-, of startadres 
hoger ligt dan DF87H kunnen problemen opleveren met de 
Diskbasic. 

1 COLOR 1 > 1 4 ï SCREENO : W I DTH40 
20 RESTORE 

30 RE AD A* sCLEAR 300 » VAL ( " &H " +A$ ) : RE AD 
A$ 

40 READ A$ : IF A$="**" THEN 80 ELSE I7.= 
VAL(”S<H ,, +A$) 

50 READ A$: IF A*="**" THEN 40 ELSE POKE 
I7.tVAL("&H"+A*> : I7.= I7.+ 1 5 GOTO 50 
60 DATA cf ff 

70 DATA d000»cd» e9>72*21 #00» dl t06* 10» cd» 
d4 » 72 f 77 » 23 » 10 » f9 > 3e » 02 » 32 » 63 » f6 > c9 * e7 » 0 
t ** t d040 >21 1 9a > 20 » c d » e 1 » 00 1 3e 1 2 1 32 » 93 ♦ f 7 
t c9 

80 DEFUSR0=&cHD000 : DEFUSR1=?<HD040 
-4- 90 DEFFNH$ ( V7. ) =STRING$ ( 2-LEN ( HEX$ ( V7. ) ) » " 
0 " ) +HE X $ ( V7. ) 'RIGHT$< " 00 " +HE X $ ( V7. ) * 2 ) 
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100 PRINT "header d3=pros> ea=ascii> 
d0=bin Sfilename " ' ! screenmodus" 

110 PRINT STR I Nö$ ( 38 1 " - " ) 

120 A=USRO (0)5 IF PEEK ( S<HD 1 00 ) < 1 28 THEN 
120 

125 FOR 1=1 TO 500 : NEXT 

130 FOR 17=0 TO 9 ? PRINT FNH$ <PEEK<S<HD1 

00+17.))?" "? ? NEXT SPRINT 

135 FOR I7.=0 TO 5 ? PRINT FNH$ <PEEK<S<HD1 

0A+I7.))?" "? - NEXT 

140 PRINT " ! >" ? 

150 FOR I7.=0 TO 5 : A=PEEK<8<HD10A+r/.) : IF 
(A>31) AND ( A< 127) THEN PRINT CHR*(A>? 

: NEXT ELSE PRINT " "? : NEXT 

160 PRINT ! "? FNHS<PEEK<S<HD 11 

O)) 

170 L=PEEK < S<HD 1 00 ) : A=USR ( O ) : IF L< >S<HD0 
THEN 120 

175 FOR 1=1 TO 500 : NEXT 

180 PRINT " Besin " ?FNH$ <PEEK<S<HD1 01 ) ) 

S FNH$ ( PEEK < S<HD 1 00 ) ) ? 

190 PRINT " eind " ?FNH$ <PEEK<S<HD 103) ) 

? FNH* <PEEK<S<HD1 02) )? 

200 PRINT " start " ?FNH$ <PEEK<S<HD 105) ) 
5 FNH$ <PEEK<S<HD1 04 ) ) 

210 GOTO 120 



55 




ROM-ROUTINES 



De ROM-routines kunt u in sommige gevallen gebruiken in 
uw BASIC programma’s en in elk geval in uw machinetaal- 
programma’s. 

In een BASIC programma doet u dat d.m.v. het DEFUSR en 
het USR statement. 

Voorbeeld: 

DEFUSR=S<HOOO : XUSR ( 0 ) ==>> WARME START 

In een machinetaalprogramma doen we dat d.m.v. een z.g. 
CALL-opdracht. 

Hieronder volgen de ROM-routines en hun functies: 

ADRES UITLEG 

0000H RESET 

Als u deze routine aanspreekt zal de computer 
een warme start uitvoeren. 

0008H RST 08H 

Zelfde als boven, echter nu wordt gekeken 
of het in register HL staande byte gelijk is aan 
het byte dat op deze instructie volgt. 

000CH LD A, (HL) slotselectie 

Register A bevat het slotnummer. Als resultaat 
bevatten register A èn register E de naar adres 
HL verwijzende slotwaarde. 

001 OH VOLGENDE BYTE 

Zoekt volgende karakter of BASIC teken. 
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HL verwijst naar het volgende karakter. 

A bevat het karakter. 

Carry vlag gezet als het een getal is. 

Zero vlag gezet als het einde is bereikt. 

0014H LD (HL), E SLOTSELECTIE 

A bevat het slotnummer, HL het adres en E 
de waarde. 

0018H RST 18H 

Print de waarde van register A op de ’listdevice 
(normaal het beeldscherm). 

Als u het adres F416 met een waarde groter dan 
0 laadt, zal de printer worden ingeschakeld. 

0020H RST 2 OH 

DE en HL worden met elkaar vergeleken. 

DE en HL worden niet veranderd. 

0028H RST 28H 

Geeft het gebruikte type variabele. 

0038H RST38H 

Interrupt routine (50 keer per seconde) 

003EH Functietoetsen nemen hun oude waarde aan. 

004 1H DISABLES SCREEN 

Zet het scherm uit. 

De schermkleur neemt de borderkleur aan. 

0044H ENABLES SCREEN 

Zet het scherm aan. 

0047H Schrijf naar een VDP register 

Register C bevat het registernummer. 

Register B bevat de data. 

In BASIC: VDP(C)=B 
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004AH Lees uit het Video RAM 

Het adres uit HL wordt in de Accumulator 
geladen. 

In BASIC: A=VPEEK(HL) 

004DH Schrijf naar het Video RAM 

De waarde in de Accumulator wordt in HL 
van het Video RAM geladen. 

In BASIC: VPOKE HL,A 

0050H VDP READ INITIALISATIE 
HL bevat het start adres. 

0053H VDP WRITE INITIALISATIE 
HL bevat het begin adres. 

0056H SCHRIJF NAAR VRAM 
Start in HL 
Data in A 
Lengte in BC 

0059H VRAM naar RAM 

Verplaatst een blok VRAM naar RAM 
Startadres VRAM in HL 
Doeladres in RAM in DE 
Lengte in BC 

005CH RAM naar VRAM 

Startadres RAM in HL 
Doeladres in VRAM en DE 
Lengte in BC 

005FH Screen mode selectie 

De Accumulator bevat de waarde van de screen- 
mode. 

In BASIC: SCREEN A (met A=0, 1, 2 of 3). 

0062H KLEUR INITIALISATIE 
Kleur als: 
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0066H 

0069H 

006CH 

006FH 

0072H 

007 5 H 

0078H 

007BH 

007EH 

0081H 

0084H 

0087H 

008AH 



Voorgrondkleur (F3E9H) 

Achtergrondkleur (F3EAH) 

Borderkleur (F3EBH) 

In BASIC: COLOR A,B,C 

NON MASKABLE INTERRUPT 
SPRITE INITIALISATIE 

SCREEN 0 INITIALISATIE 
In BASIC: SCREEN 0 

SCREEN 1 INITIALISATIE 
In BASIC: SCREEN 1 

SCREEN 2 INITIALISATIE 
In BASIC: SCREEN 2 

SCREEN 3 INITIALISATIE 
In BASIC: SCREEN 3 

INITIALISATIE VDP SCREEN 0 

INITIALISATIE VDP SCREEN 1 

INITIALISATIE VDP SCREEN 2 

INITIALISATIE VDP SCREEN 3 

SPRITE VORM TABEL 

HL bevat het adres van de sprite vorm tabel 
In register A stopt u het sprite nummer. 

SPRITE ATTRIBUTE TABEL 

HL bevat het adres van de sprite attribute tabel 

In register A stopt u het sprite nummer. 

SPRITE GROOTTE. 

Register A bevat de sprite grootte. 

Carry-vlag gezet als 16x16 sprite. 
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008DH Schrijft karakter naar graphics scherm 
Waarde van karakter in Accumulator. 

0090H Initialisatie PSG 

0093H Schrijf naar een PSG register 

Schrijft de waarde van register E in het PSG- 
register met de waarde ’A’. 

In BASIC: SOUND A,E 

0096H Lees uit een PSG register 

De Accumulator bevat de waarde van het PSG- 
register. 

0099EI Start de achtergrondmuziek 

009CH KEYPRESSED 

Kijkt of er een toets wordt ingedrukt. 

Zero-vlag geset als toets in buffer. 

009FH Wacht op een toetsdruk 

Wacht tot er een toets wordt ingedrukt. 

De waarde van het karakter wordt in de Ac- 
cumulator gestopt. 

In BASIC: INKEY$/INPUT$(1) 

00A2H Print inhoud Accumulator op het scherm 

00A5H Print inhoud Accumulator op de printer 

00A8H PRINTER CONTROLE 

FFH in de Accumulator, en Zero-vlag gereset 
als printer ’ON-LINE’. 

Zero-vlag gezet als printer niet ’ON-LINE’. 

OOAEH Invoer tot RETURN/ENTER 

U kunt een regel laten invoeren tot maximaal 
255 karakters. In het bereik van F55EH tot 
F65DH. 
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HL bevat het startadres -1. 

00B7H CTRL/STOP controle 

Carry-vlag geset als ingedrukt. 

In BASIC: STOP ON:ON STOP GOSUB 

00C0H BEEP 

Geeft een biep-geluidje 
In BASIC: BEEP 

00C3H CLS 

Wist het scherm en plaatst de cursor in de lin- 
ker bovenhoek. 

In BASIC: CLS 

006CH LOCATE (CURSOR POSITIE) 

Register H - regel 
Register L - kolom 
In BASIC: LOCATE L,H 

00C9H FUNCTIE TOETSEN AAN OF UIT? 

Zet functietoetsen aan als ze aan moeten. 

OOCCH FUNCTIE TOETSEN UIT 

Schakelt de functietoets-display uit. 

In BASIC: KEY OFF 

OOCFH FUNCTIE TOETSEN AAN 

Schakelt de functietoets-display aan. 

In BASIC: KEY ON 

00D2H TEKST MODE 

Zet de computer in de tekst mode. 

00D5H OPVRAGEN VAN DE JOYSTICK STATUS 

Hierdoor komt in de Accumulator de waarde 
van de richting te staan waarin de joystick 
wordt bewogen. 

In BASIC: A=STICK(A) 
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00D8H VUURKNOP ROUTINE 

In de Accumulator staat een waarde. 
Accumulator 0 - niets 
Accumulator 255 - toets ingedrukt 

0132H HOOFDLETTERS AAN/UIT 

Accumulator = 0 = = > hoofdletters uit 
Accumulator < > 0 = = > hoofletters aan 

0 1 56H Wist KEYBOARD BUFFER 

0 1 3EH LEEST HET STATUS REGISTER 

De Accumulator bevat de waarde (0-255). 
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MSX-LOGO 



10 ' MSX-LOGO 
20 : 

30 : 

40 COLOR 3» 5» 5 
45 : 

50 'm 
55 s 

60 C=1 5 ! SCREEN2 : LINE < 5 » 1 60 ) - < 25 » O > » C 

70 LINE(25»0)-<45»0) »C 

80 LINE-<55»90) »C 

90 LINE-(70»0) »C 

100 LINE-<95»0) »C 

110 LINE-( 1 10» 130) »C 

120 LINE( 110» 160)-(85> 160) »C 

130 LI NE- (78» 95) »C 

140 L I NE- ( 70 » 1 60 ) » C 

150 L I NE- ( 45 > 1 60 > > C 

160 L I NE- ( 38 » 95 ) » C 

170 LINE- (30» 160) »C 

180 L I NE- ( 5 » 1 60 ) » C 

190 : 

200 's 
210 : 

220 CIRCLE( 140» 64) » 15»C» .5*3. 14» 1 .5*3. 14 

t 1 

230 LINE( 139»79)-( 145 >79) »C 

240 CIRCLE( 145» 120) »40»C» 1.5*3.14» .5*3. 1 

4» 1.25 

250 LINE( 145» 160)-( 100» 160) »C 

260 L I NE ( 1 40 > 48 > - ( 170»48) »C 

270 LINE( 108» 130)-( 140» 130) »C 

280 CIRCLE( 140» 122) »8»C» 1 .5*3.14» .5*3.14 
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>1.25 

290 LINE<140>114)-<1 30 > 1 1 4 ) > C 

300 Cl RCLE ( 132 >57) >56>C> .5*3. 14> 1 .5*3. 14 

>1.9/1 

310 LINE( 132>0)-< 170>0) >C 
330 : 

340 ' x 
350 : 

360 LINE( 170>0)-(256> 160) >C 

370 L I NE ( 1 70 > 48 ) - ( 230 > 1 60 ) > C 

380 LINE-(256> 160) >C 

390 LINE(230>0)-( 170> 160) >C 

400 L INE ( 256 > 0 ) - ( 1 97 > 1 60 ) > C 

410 LINE-( 170> 160) >C 

420 L I NE ( 256 > 0 ) - ( 230 > 0 ) >C 

430 C I RCLE ( 200 > 1 00 ) > 2 > 5 

440 CIRCLE(210>80) >2>5 

450 C I RCLE ( 200 > 75 ) > 2 > 5 

460 PAINT(85>2) >C 

470 PAINT(235> 140) >C 

480 PA I NT ( 2 1 5 > 1 00 ) > C 

490 PA I NT ( 1 90 > 1 40 ) > C 

500 GOTO 500 
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SCROLL 



10 ' DIT PROGRAMMA LAAT ZIEN HOE U 
20 ' EEN SCHERM KUNT LATEN VER- 
SO ' PLAATSEN. 

40 ï 

50 ' DIT ZOU EIGENLIJK IN MACHINE- 
60 ' TAAL MOETEN GEBEUREN. 

70 s 

80 ' DIT MACH I NET AALPROGRAMMA KUNT 

90 ' U TERUGV INDEN IN HET 

100 ' MACHINETAAL BOEK VAN 

110 ' H. KLOPPER EN M. LEBELLE 

120 ' STARK-TEXEL 

130 : 

140 DEFINT A-Z 
150 SCREEN 2 

160 LINE (0»0)-<255 1 191 ) 

1 70 C I RCLE ( 200 » 96 ) 1 50 : PA I NTSTEP ( O » O ) 

180 : 

190 FOR Y=&H1800 TO &H1 AFF 
200 Z=VPEEK( Y) 

210 A= ( Z+l ) AND &H3F:Z=(Z AND &HEO) OR A 

220 VPOKE Y 1 1 

230 NEXT : GOTO 190 
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SIMULATIE OPSTARTSCHERM 

10 ' DIT PROGRAMMA SIMULEERT ONDER 
20 ' SCREEN MODE-1 HET OPSTART SCHERM 
30 ' VAN UW MSX COMPUTER.... 

40 • 

50 X=24:Y=39 

60 STOPON : 0NST0PG0SUB300 
70 WIDTH30 

80 SCREEN 1 » O s VDP ( 6 ) =VDP ( 4 > 

90 VP0KE&H20 1 F » O 

100 PRINT" MSX BASIC version 1.0 

110 PRINT" Copyright 1983 by Microsoft 

120 LOCATE > 2 * PR I NTFRE ( O ) " Bytes free" 

130 • 

140 ' haal de REM uit regel 150 als u ee 
n diskdrive heeft 

150 ' LOCATE » 3 * PR I NT " Disk BASIC version 

1 . 0 " 

160 LOCATE > » O s PUTSPR I TEO » < X » Y ) > 1 5 » 255 
170 A$= I NPUT $ ( 1 ) 

180 VPOKE &H20 1 F > O 

190 I F A$=CHR$ ( &H 1 E ) THEN X=X : Y=Y-8:G0T0 
250 

200 IFA*=CHR*<8(H1F> THEN X=X : Y=Y+8:G0T0 
250 

210 IFA*=CHR*(S<H1D> THEN X=X-8: Y=Y:GOTO 
250 

220 I F A$=CHR$ ( StH 1 C ) THEN X=X+8: Y=Y: GOTO 
250 

230 I F A*=CHR* ( &HC ) THENY=7 : X= 1 6 s CLS : GOTO 
160SG0T0250 

240 B=Y/8+l: LOCATE X/8-1 »BsPRINTAf 5 s X=X 
+8 
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250 I FY* > 1 84THEN Y * 1 83 

260 IFY=<-2 THENY=-1 

270 IFX=< 16THENX=240 : Y=Y-8 : GOTO 290 

280 IFX=>248THENX=16ïY=Y+8 

290 GOTO 160 

300 : 

310 'Letters ALLE KLEUREN + programma we 

9 

■~i ’U* * 

330 F0RX=?<H2000 T0&H201F 
340 VPOKE X»1 
350 NEXT 

360 PUTSPR I TE O » ( 1 0 » 209 ) , O > 255 

370 LOCATE 1 t5: PR INT "Computer Internal e 

rror 

380 LOCATE 1 »6:PRINT"Thank you! 

390 LOCATE 1 >8:PRINT"P.S. Druk op reset 
of zet uw 

400 LOCATE 1 >9:PR INT "computer aan en uit 



410 STOP ON: ON STOP G0SUB440 
420 F0RT=1T03000 : NEXT 
430 DEFUSR=0 : X=USR ( O ) 

440 RUN 
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WILLEKEURIGE KLEUREN 

10 ' DIT PROGRAMMA PLAATST 
20 ' WILLEKEURIG KLEUREN 
30 ' IN DE KLEUREN TABEL 
40 ' VAN SCHERMMODE 1... 

50 : 

60 SCREEN 1 

70 F0RX=8cH2000 T0&H201F 
80 VPOKE X »RND( 1 )*12+2 
90 NEXT 
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BALSPEL 



10 ' EEN FRAAIE BASIS 

20 ' VOOR EEN BALSPELPROGRAMMA 

30 DEFINT A-Z 

40 SCREEN 2» 2 

50 FOR S=0 TO 63 

60 READ X 

70 VPOKE BASE( 14)+S» X 
80 NEXT 

90 FOR M=2 TO 4 
100 FOR S=1 TO 16 
110 READ X»Y 

120 S$=S*+CHR$(X) : T$=T$+CHR$( Y) 
130 NEXT 

140 SPRITE*(M)=S$+T$ 

150 S*= T$="" 

160 NEXT 
170 S*="" 

180 FOR S=1 TO 8 

190 READ X 

200 S*=S*+CHR$(X) 

210 NEXT 

220 SPRITE*(5)=S* 

230 LI NE (25» 45) -(230» 45)» 15 

240 LINE -(250» 179)» 15 

250 LINE -( 5» 179)» 15 

260 LINE -( 25» 45)» 15 

270 LINE( 127>45)-( 127» 179) > 15 

280 CIRCLE ( 127» 102) » 20» 15 

290 CIRCLE ( 127» 102) » 1»15 

300 A=0 : B= 1 ! C=2 : D=3 : E=4 : F= 1 8 : 0=8 

310 X=150! Y=100:Z=16:X 1=100 :Y1=100 

320 PUT SPRITE C»(X»Y)»15 




330 PUT SPRITE B»<X»Y+Z)»15 

340 PUT SPRITE E»<X»Y>,1 

350 PUT SPRITE 5»<X1»Y1>»15 

360 ON STICK(O) GOSUB 470» 470» 480» 480» 49 

0 1 490 » 500 » 500 

370 ON STRIG GOSUB 610 

380 IF X=X1 THEN GOSUB 580 

390 IF X+1«X1 THEN GOSUB 580 

400 IF X+2=X 1 THEN GOSUB 580 

410 IF X-2=X1 THEN GOSUB 580 

420 IF X-1=X1 THEN GOSUB 580 

430 SWAP F»G 

440 PUT SPRITE 5» ( XI »Y1+F) » 15 
450 FOR T=1 TO 100 : NEXT 
460 GOTO 360 

470 Y=Y-2: GOSUB 51 O: RETURN 
480 X=X+2: GOSUB 5 10: RETURN 
490 Y=Y+2 : GOSUB 510: RETURN 
500 X=X-2: GOSUB 510: RETURN 
510 PUTSPRITE C» (O» 196)» O 
520 PUTSPR I TE D » ( 20 > 1 96 ) » O 
530 SWAP A » C : SWAP B»D 
540 PUTSPRITE C»(X»Y)»15 
550 PUTSPRITE D»<X»Y+Z)»15 
560 PUTSPRITE E»(X»Y)»1 
570 RETURN 
580 X1=X : Y1=Y 
590 STRIG(O) ON 
600 RETURN 
610 FOR T=1 TO 20 
620 X1=X1-1 : Y1=Y1-1 
630 PUTSPRITE 5»(X1»Y1)»15 
640 NEXT 

650 FOR T=1 TO 20 
660 X1=X1-1 : Y1=Y1+1 
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670 PUTSPRITE 5»(X1»Y1>»15 
680 NEXT 
690 STRIG(O) OFF 
700 RETURN 



710 


DATA 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


3» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0 






720 


DATA 


0» 


20» 


60» 


20» 


12» 


18» 


45» 


173» 


249» 


113» 


33 » 


33» 


30» 


30» 


30» 


62 






730 


DATA 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0 






740 


DATA 


54» 


102» 


70» 


102» 


50» 


18» 


51» 


7» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0 






750 


DATA 


0» 


0» 


0» 


20» 


0» 


60» 


0» 


20» 


0» 


12» 


0» 


18» 


1» 


45» 


1» 


173 






760 


DATA 


0» 


249» 


0» 1 13» 


0» 


33 > 


0» 


33 » 


0» 


30 > 


0» 


30» 


0» 


14» 


0» 


14 






770 


DATA 


0» 


14» 


0» 


14» 


0» 


12» 


0» 


12 > 


0» 


12» 


0» 


12 » 


0» 


28» 


0» 


60 






780 


DATA 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0 » 


0 






790 


DATA 


0» 


14» 


0» 


3 > 


0» 


3» 


0» 


2 » 


0» 


0» 


0» 


12» 


0» 


18» 


0» 


18 






800 


DATA 


0» 


6 > 


0» 


14» 


0» 


30 » 


0» 


30 > 


0» 


0» 


0» 


0» 


0» 


0» 


0» 


0 







810 DATA «<800000000 
820 DATA ?<B00000000 
830 DATA StBOOOOO 110 
840 DATA «<800001111 
850 DATA «<800001111 
860 DATA «<800000110 
870 DATA «<800000000 
380 DATA «<800000000 
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WERELDKAART 



10 ' DIT PROGRAMMA TEKENT DE 
20 7 KAART VAN DE WERELD 
30 ■ 

40 7 AAN IJ DE TAAK OM ER IETS 

50 7 NUTTIGS MEE TE DOEN 

60 7 



70 ï 

80 COLOR 15*4*4 
90 SCREEN 2 

100 CIRCLEt 124» 100) » 155,5# » » 19/31 

110 PA I NT < 5 » 5 ) » 5 : P A I NT < 250 » 1 80 ) » 5 s P A I NT ( 



5» 180) >5 
120 CLEAR1000 

1 30 A$= " C 1 5BM8 » 43R 1 BR 1 R 1 U 1 R3U 1 R3U2L2U 1 R2 
IJ2R2D 1 R3U2L 1 U 1 L 1 R 1 U 1 R2D 1 R3U2L 1 R4U 1R4D1R2 
D 1 R3D2R2U 1 R5D2L3D2R 1 D3L 1 D2R 1 D2R3D2R3U2L2 
U2L3R3U2L2U 1 L 1 R 1 U 1 R2U3L 1U1R1U1D1R1D1R1D1 



R3D 1 G 1 L2D2R2U2E 1 R2U 1R2D1 R3U 1 D2 " 

1 40 B*= " R2U 1 R 1 U2R 1 U 1 R 1 U 1 R 1 U 1 R 1 L 1 D 1 L 1 D2L 1 
D3R4U 1 L 1 U 1 D 1 L 1 D 1 L3D 1 F2H 1 G 1 E 1 H 1 U 1 L2D2L3D 1 
L2D 1 L2D 1 L 1 D5R 1 D 1 R2D 1 R 1 D4R2U2R 1 IJ2R2U 1 H 1 F 1 
R 1 U3R 1 U 1 R 1 U 1 H 1 F 1 R 1 U 1 D 1 R3D4R2U2R 1 D5R 1 D 1 R 1 
D 1 L2D 1 L7D 1 L2D2R4L 1 D3R 1 L2G 1 E 1 U 1 L3D 1 L2D 1 L 1 
D1L1U3" 

1 50 C$= " L3U2L2U2L 1 U 1L2D1 L3D3R2U 1 R2L2D 1 L 1 
D 1 L 1 D4R2U 1 R 1 U2R 1 U 1 D2R 1 L2D2R4U3L 1U1D1 R2D 1 
R4D2L 1 D 1 L 1 D 1 L2D2L 1 D2L2D 1 L2D 1 L2D 1 L 1 D6L 1 D 1 
U6L5D 1 L6D 1 L 1 D 1 L 1 D2R 1 L 1 D 1 L 1 D5R 1 D 1 R5U 1 R 1 U 1 



R2L 1 D2L 1 D3R3D4L3U2L3U 1 L 1 U 1 L 1 U 1 " 

1 60 D*= " L4U 1 L 1 IJ 1 L2U 1 L 1 U 1 L 1 U 1 R 1 U2L 1 U4L 1 U6 
L2D9U4L 1 R 1 U2L 1 U6L 1 U5R 1 IJ2R 1 U2R2U2R 1 U 1 R 1 U2 
R2U5R 1 U4R 1 U2L 1 U 1 L 1 U2L2U 1 L2D 1 L 1 D 1 L 1 R 1 U2L3 
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D1L1D1L2" 

170 DRAW A$ 

180 DRAW B* 

190 DRAW C* 

200 DRAW D$ 

2 1 0 A$= " " : B*= " " * C$= " " * D$= " " 

220 A$= BM4 1 » 94L 1 D 1 R2D 1 L 1 R2D 1 R 1 U 1 R2D2R 1 D 
3L 1 D3L 1 D 1 L 1 D3R 1 D2L 1D2R1D1R1 D2R 1 D2R 1 D2R 1 D 

2R2D1R1D1R1D1R1D2R1D9R1D8R1D3R1D1R1D5L1R 

1D1R1D1R1D2R1D1R1D1R1D1U2R1F1D2R3L1U1UH 



2L 1 U2R 1 U3L2U2R 1 U3 " 

230 B$= " L 1 U2R2U2R2U 1 R2U 1 D 1 L2U 1 L 1 U2R4U 1 R 1 
I I3R 1 1 15R 1 IJ 1 R 1 U 1 R3U 1 R 1 U3R 1 U 1 R 1 L 1 U6R 1 U 1 R 1 U 1 
R ï I I4L31 1 1 L 1 U 1 L3U 1 L3U 1 L4U2R 1 U3L 1 U t L 1 U 1 L4U 1 
L 1 M 1 L ï U 1 L 1 U2L 1 D 1 L2U 1 L3D2L2U4R 1 L 1 D 1 L3D 1 L 1 



D2L2" 



240 DRAW A$ 

250 DRAW B* 

260 A$=" " ! B$=" " 

270 A$ = " BM48 1 55L2U3R 1 U 1 R2D2L 1 D2BM44 1 83R2 
D 1 R3D 1 L 1 R2D 1 L 1 R3E 1 G 1 F 1 R2D 1 R 1 LL4BM7 1 > 58R2 
DU I2R1I UD2RiDlBM74f 44U2L2R1D1L1D1U1L1U1L 
3U1R5U 1 R2D 1 R 1 U 1 R 1 L 1 U3L 1 U 1 L 1 U 1 L2D2R 1 D2L 1 R 



3U 1 L 1 U 1 H2L 1 U 1 D 1 L4R 1 U 1 D2R2 " 

280 B$="BM57 t 36U1R1L6R2U1R4U1D1L2U1L3BM5 
0 331 1 1 R 1 U 1 R2U 1D1R1BM55» 29R3D 1 L 1 R2D 1 L 1 R3U 
1 d 1 R 1 BM64 * 3 1 R 1 U 1 R 1 BM6 1 1 34U 1 R2BM74 » 32L5U2 
D 1 R 1 E 1 R4D 1 U2L 1 R2U 1 R 1 D2R 1 U2R 1 D 1 U 1 R2U2L6R 1 



OL2D 1 L2D 1 F2R 1 U 1 R 1 U 1 R2U 1 R3 " 

290 r.*= " D 1 R2U 1 R 1 D 1 R2U 1 R2U 1 R7L4D2R3D 1 R2U 1 
R2L2D2L 1 D3L 1 D2U 1 L2D3U2L2D3R 1 L2D 1 L4D 1 L 1 D 1 
L 1 D 1 1 1 1 L3D 1 L 1 D 1 L 1 D2L 1D1L1D1U1 L2U3L 1 R 1 U3R 1 
1 1 1 R2U2L 1 R 1 Ü2L 1 R 1 U2L 1 U2L4BM 1 00 » 43R 1 U 1 B2R 1 



IJ 1 R 1 IJ 1 D2R 1 U2R 1 D2U 1 R 1 " 
300 DRAW A$ 

310 DRAW B$ 
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320 DRAW C* 

330 A$= " " 5 B$= " " ! C$= " " 

340 A$= " BM 1 37 # 77U 1 L8U 1L 1 D2L3U 1 L2U 1 L3U3R 1 
L 1 U 1 L5D 1 L4D 1 L2U 1 L2D 1L1D1L1D1L1 D2L 1 D 1 L 1 D 1 
L1D1L1D2L1D2L1D1L1R1D6L1D2R1D1R1D2R1D2R1 
D 1 R2D 1R3U1 R2D 1 R2U 1 R6D 1 R 1 D 1 R2D6L 1 R2D2R 1 D 1 
R 1 D5R 1 D3L 1 D2L 1 D2R 1 D3R 1 D3R 1 D5 " 

350 B$= "R1D4R1D1R1U1R4U1 R2U 1 R 1 U 1 R 1 U2R 1 U3 
R2U2R 1 L 1 U3R 1 U2R2U 1 R2U6L 1 U5R 1 U2R 1 U 1 R 1 U 1 R 1 
U2R2U 1 R 1 U 1 R 1 U 1 R 1 U2R 1 U3R 1 U 1 L3D 1 L4U 1 L 1 U2L 1 
U1L1U1L1U2L1U4L1U1L1U2L1U2L1U2R1U2R1U1R1 
U4L6U 1 L 1 U 1 L 1 R 1 U 1 R2U 1 R2U 1 R2D 1 R4 " 

360 C$= " U3L 1 U 1 U U 1 R 1 U2L3D 1 L 1 D2U 1 L 1 U2L2D2 
L2D2L 1 D3U 1 R 1 L4D4U2L2U3L 1 U 1 L 1 U 1 L 1 U 1 L2D2F3 
D 1 G2E2U 1 L2H2U 1 L 1 U 1 L2D 1 L3D 1 L 1 D 1 L2D3L 1 D 1 L6 
R 1 U2L 1 U 1 R 1 U3L 1 R3D 1 R3U 1 R 1 U4L2R2U 1 R2U 1 R 1 IJ 1 
H 1 L 1 D 1 U3L 1 U3H 1 G 1 D 1 R 1 D 1 R 1 D2 " 

370 DRAW A$ 

380 DRAW B$ 

390 DRAW C* 

400 A$=" " :B$=" " :C$=" " 

410 A$= " L 1 D 1 L 1 R 1 D2L 1 R 1 U2R3F 1 R 1 IJ2D 1 R2U 1 R2 
U3E 1 6 1 D2R 1 E 1 G 1 D 1 R4U 1 R 1 IJ 1 D 1 R2U3D 1 R2U2R21 1 1 
D 1 R2U2L 1 U 1 L3D 1 L2U2R 1 U 1 R 1 IJ2L 1 ü 1 L2D2L 1 D 1 L 1 
D3R 1 L2D2R 1 L 1 D2U 1 L 1 U 1 L 1 IJ 1 L4R 1 D 1 U3L 1R1U1R2 
U 1 R 1 U 1 R 1 U 1 R 1 U 1 R 1 IJ 1 R 1 U 1 R 1 IJ 1 R3U 1 D 1 R2 " 

420 B$= " IJ 1 D 1 R2D 1 R3D2R 1 IJ 1 R 1 L5D2R 1 D 1 R 1 D 1 R2 
IJ i D 1 R2U2R2U3L 1 R 1 D2R2U 1 R3U 1 D 1 R3U 1 D 1 R2U2D 1 
R3IJ2L 1 U2R 1 D 1 R 1 D3R2L2D2R 1 D 1 R2U2R 1 U 1 D 1 R2U2 
L 1 U 1 L3U 1 E 1 F 1 R 1 D 1 R2U3L2R2U2R5U 1 R 1 IJ 1 R 1 D 1 R4 
D2L 1 D2R2U 1 R 1 U 1 R4D 1 R3U 1 R3D 1 R 1 D 1 R2 " 

430 C$= " U 1 H 1 F 1 R3U 1 R 1 IJ 1 D 1 R2U 1 R 1 D 1 R2D 1 R2U 1 
R2D 1 R2D 1 R2U 1 R5U 1 R5D 1 R3D 1 R2U 1 R2L 1 D2R 1L1U1 
L2D 1 L2D2R3L 1 D3L2D 1 U 1 L2D3R2D 1 R 1 D2R t D3U 1 L 1 
ü 1 L 1 U 1 L 1 U 1 L 1 U 1 L 1 R 1 U 1 F2H2U4L 1 U 1 L2D2U 1 L2D3 
R 1 L6D 1 L 1 D2L 1 D 1 L 1 D2R2D 1 R2U 1 D 1 " 
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440 DRAW Af 
450 DRAW Bf 
460 DRAW Cf 
470 Af = !Cf=" " 

4ftO Af = " R 1 D 1 R 1 D 1 R 1 D2R 1 D6L2D3L 1 D3R2D 1 R 1 D 1 
L l D 1 H 1 L 1 U2L 1 U2L3D 1 U2L3D2L 1 D2R2D 1 R2U 1 R 1 L 1 
D 1 L 1 D2R 1D1R1D1R1 D2R 1 D3L 1 D2L 1 D2L2D 1 L3D 1 U 1 
L3D5R 1 D IR 1 D2R 1 D3L 1 D 1 L 1 D2U3L2U2L 1 U2L3D2R 1 
DÏ LÏ D3R 1 D 1 R 1 D3FF2D 1 R 1 U 1 H 1 U2H5U5 " 

490 Bf = " L 1 U3L2D 1 L 1 D 1 U4L2U2L3D 1 L2D 1 L 1 D 1 L 1 
DILIDILIBILI D4L 1 D3F 1 R 1 D2U 1 L 1 U 1 H 1 L 1 D 1 U 1 L 1 
IJ2L 1 IJ3L 1 U2L 1 U6L2D2U 1 L2R2U2L2U 1L2U 1 L7U 1 L4 
1 1 1 L 1 U 1 L 1 UI L3D3R 1D1R1D1R1D1R1D1 R2U 1 R 1 U 1 D 1 
R1D1R1D1R1L1D1L1D2" 

500 Cf* "L1D1L1D1L1D1 L2D 1 L2D 1 L3U3L 1 U2L2U2 
L 1 U3L 1 II 1 L 1 U2L 1 U3L2BM 1 46 1 6 1 D3R2D2R 1 D 1 R 1 D 1 
L 1 D3R5U3L 1 U 1 R 1 U2L2D 1 U3L 1 R 1 IJ3L4D 1 L2BM 1 55 » 
A 1 R ï U 1R2D1R1 D3L3U 1 L 1 U2 " 

510 DRAW Af 
520 DRAW Bf 
530 DRAW Cf 
540 Af = " " • Bf = " " ' Cf = 

5SÖ Af = " BM2 1 0 1 50F3D2R 1 L 1 D 1 F 1 BM2 1 5 * 59R2D 1 

R2L1D1L1D1L1R1F1D1L1R1D1R1D1L1D1R1D1R1L3 

D 1 R2L 1 D 1 U 1 L4D 1 BM2 1 0 » 80D3U 1 L 1 U 1 BM2 1 1 > 87D 1 
R1D1L2R1D1R1D1R1D1R1F1D1BM21 1 1 95G2BM212 » 
9^F 1 BM2 1 4 ♦ 96F 1 R2U 1 D2L3R 1 D 1 R 1 " 

560 Bf="B!il91 1 1 00D 1R1D1R1D1R1D1R1D1R1 L2R 
I D 1 R2F 1 L3F 1 R2F 1 E 1 G 1 L3F 1 R2F 1L2BM1 96 » 1 OOF 1 
U 1 H 1 BM202 » 1 05D 1 R 1 D2R 1 D 1 R3D 1 U 1 R 1 U2R 1 U2R 1 L 
1 U4R 1 U 1 L 1 U 1 D 1 L 1 D 1 L 1 D2L 1 D 1 L 1 D 1 L2U 1 BM2 16*1 
05L4D2R2L2D 1 L 1 D3U2R2D2 " 

570 f: f = " BM 1 99 * 1 1 3R6D 1 L 1 R2BM209 » 1 1 5E 1 BM2 1 
i , ï 1 AE 1 R 1 BM2 1 5 » 1 1 6E 1 BM222 1 1 07R 1 D2R 1 D 1 R2D 
1 R 1 Dl R 1 D3R2D 1 U 1 R 1 U 1 R2D 1R1D1R1D1R1 H3U 1 R 1 L 
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1U1L1U1L1 U 1 L2U 1L1U1D1L1D1" 

580 DRAW A* 

590 DRAW B$ 

600 DRAW C$ 

610 A$= " " : B$= " " ! C$= " " 

620 A$= *' BM230 » 1 1 8D5R 1 D4R 1 D5R 1 D2R 1 L 1 D3L 1 D 
2L1D1L1D1L1D1L1D1L1 D2L2D2L3D 1 L 1 U 1 L2U 1 L 1 U 
3R 1 U2L2D 1 G 1 U3L 1 U 1 L5D 1 L3B 1 L5D 1H1U1R1U1R1U 
6R1U2L1R1 U2R2U 1 R3U 1 R3U2R2U 1 R 1 U2R 1 D 1 R3U 1 R 
1 U 1 R2U 1 H 1 F 1 R3L 1 D 1 L 1 D2 " 

630 B$= "R1D1R1D1R1D1 R2U2R 1 IJ4BM22 1 > 150D1L 
1 D 1 L 1 U2R2BM230 > r 

640 C*= " BM 1 09 > 54L 1 U 1 D2L 1 D 1 IJ2BM 1 22 > 30R3D2 
U 1 L2R3F 1 R 1 BM 1 27 » 29R 1 D 1 U 1 R 1 BM 1 46 » 34R 1 U 1 R3 
IJ 1 R 1 BM 1 45 > 37R 1 U 1 D 1 R 1 " 

650 DRAW A$ 

660 DRAW B$ 

670 DRAW C$ 

680 PSEt ( 25 » 48 ) » 1 5 
690 PSET (26>47) » 15 
700 PSET (27» 44 )» 15 
710 PSET (25 >51) »15 
720 PSET (25» 52) » 15 
730 PSET (60» 36 )» 15 
740 PSET (70» 39 )» 15 
750 PSET (68»38) > 15 
760 PSET (67» 28 )» 15 
770 PSET (70» 28 )» 15 
780 PSET (218»107) > 15 
790 PSET ( 1 19» 68) » 15 
300 PSET (218» 106) » 15 
810 PSET ( 119» 67) » 15 
820 PSET (201» 87) »15 
830 PSET ( 123 >66) » 15 
840 PSET (201» 86) >15 
850 PSET ( 122 » 65 ) » 1 5 
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860 PSET ( 202 » 86 ) » 1 5 
870 PSET ( 131 >72) >15 
880 PSET (213*72) >15 
890 PSET ( 132 >72) > 15 
900 PSET (214*72) > 15 
910 PSET ( 141 >28) » 15 
920 PSET (21 4» 73) >15 
930 PSET ( 143>29) > 15 
940 PSET (216>71 ) > 15 
950 PSET ( 146 >28) > 15 
960 PSET (219 >58) >15 
970 PSET ( 1 44 > 39 ) > 1 5 
980 PSET (226 >38) > 15 
990 PSET ( 150 >38) > 15 
1000 PSET ( 227 > 38 ) > 1 5 
1010 PSET (217>110)>15 
1020 PSET (21 1 >32) > 15 
1030 PSET(219> 110) > 15 
1040 PSET ( 193>31 ) > 15 
1050 PSET ( 220 > 110) > 15 
1060 PSET ( 192» 31 ) > 15 
1070 PSET (236 >112) >15 
1080 PSET ( 190 >31 ) > 15 
1090 PSET ( 237 >112) >15 
1100 PSET (188 >31 ) > 15 
1110 PSET ( 238 > 1 1 2 ) » 1 5 
1120 PSET (188 >32) >15 
1130 PSET (238 >110) >15 
1140 PSET ( 1 87 > 3 1 ) >15 
1150 PSET ( 239» 110) > 15 
1160 PSET (167 >30) >15 
1170 PSET (165 >30) >15 
1180 PSET (165 >29) >15 
1190 PSET ( 1 64 > 29 ) » 1 5 
1200 PSET ( 164 >30) > 15 




1210 PSET ( 163» 30) » 15 
1220 PSET (162» 28) »15 
1230 PSET ( 1 6 1 » 29 ) » 1 5 
1240 PSET (48» 88 )» 15 
1250 PSET (240» 1 1 1 ) » 15 
1260 PSET (49» 88 )» 15 
1270 PSET (58» 88 )» 15 
1280 PSET (50» 81 ) » 15 
1290 PSET (69» 60) » 15 
1300 PSET (69» 57 )» 15 
1310 PA I NT ( 30 » 60 ) » 1 5 
1320 PA I NT ( 60 » 115) » 15 
1330 PA I NT ( 95 » 35 ) » 1 5 
1340 PA I NT ( 130 » 95 ) » 1 5 

1350 PA INT ( 170» 65) » 15:PAINT( 1 10»68) » 15:p 

A I NT ( 1 23 » 48 ) » 1 5 : PA I NT ( 206 » 1 05 ) » 1 5 

1 360 PA I NT ( 230 » 1 1 3 ) » 1 5 : PA I NT ( 225 » 135)» 15 

' ! PA I NT ( 149» 127) » 1 5 

1370 0PEN"GRPs "AS1 

1380 A$=" MS X -COMPUTERS" 

1390 B$- " WORLD W I DE " 

1 400 FOR X=80T08 1 STEP . 5 

1410 PRESET ( X » 150) » 14:PRINT#1 » A$ 

1420 PRESET ( X+15» 160) » 14:PRINT#1 » B$ 

1430 NEXT 
1440 GOTO 1440 
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